pse
/OvDict 50 dict def
OvDict begin

/Bdf {bind def} bind def
/Clw {currentlinewidth} Bdf
/Cp  {closepath} Bdf
/Ct  {curveto} Bdf
/Gr  {grestore} Bdf
/Gs  {gsave} Bdf
/Lt  {lineto} Bdf
/Mt  {moveto} Bdf
/Np  {newpath} Bdf
/Rmt {rmoveto} Bdf
/Sk  {stroke} Bdf
/Slw {setlinewidth} Bdf
/Sw  {stringwidth pop} Bdf
/Tx	  {show} Bdf
/Get  { exch def } Bdf

/ASlur
{ 
currentpoint translate
/SP Get
/Y3 Get /X3 Get /Y2 Get /X2 Get
/Y1 Get /X1 Get /Y0 Get /X0 Get
Gs
.25 Slw
Np
X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct
X2 Y2 SP add X1 Y1 SP add X0 Y0 Ct
Gs Sk Gr fill Gr
} Bdf

/ABeam
{
currentpoint translate
/Ru Get /Lu Get /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
Lu 0 ne { /Sh Sh (l) Sw add (m) Sw sub def } if
Ru 0 ne { /Eh Eh (l) Sw add def } if
Gs
Sh -10000 Eh 10000 Clip
Bh Slw 2 setlinecap
/Bh Bh 2 div def
/Sv Sv Bh sub def
/Ev Ev Bh sub def
Ps Sv Mt Pe Ev Lt Sk
Gr
} Bdf

end
psb